home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM A / PD-ROM A.iso / Programming / Programming Help / Alpha.4.01 / LaTeX / Wright Macros / wrightMacros < prev   
Encoding:
Text File  |  1991-10-20  |  5.9 KB  |  343 lines  |  [TEXT/ALFA]
  1. ;=================================================================
  2. ; This file is a modified version of Pete Keleher's original
  3. ; Alphabits file. The main interest for others in this file is for 
  4. ; TeX, LaTeX and BibTeX users. The Alpha suffixHook mechanism is 
  5. ; used to switch to TeX or BibTeX mode. The source for these are 
  6. ; contained in seperate files "LaTeX Macros" and "BibTeX Macros".
  7. ; See the comments in those files for more details. Also note the 
  8. ; altered menus in this file.
  9. ;                                David A. Wright
  10. ;                                (D.A.Wright@cs.utas.edu.au)
  11. ; Please feel free to modify this file to suit your own purposes,
  12. ; but do please share any improvements with me!
  13. ; DISCLAIMER: I make no guarantee about the correctness of these 
  14. ; macros. They work for me under Alpha 4.0b2.
  15. ;===============================================================
  16.  
  17.  
  18. ;====== Mode Macros ========================================
  19.  
  20. ; Hooks for file suffixs. Executed on opens and activates.
  21. (suffixHook ".tex"    setTexMode)
  22. (suffixHook ".sty"    setTexMode)
  23. (suffixHook ".m"    setMiraMode)
  24. (suffixHook ".bib"    setBibMode)
  25.  
  26. (define setBibMode
  27.     set indentOnCR off
  28.     deleteMenu "Convert"
  29.     deleteMenu "Windows"
  30.     insertMenu "Bib"
  31.     insertMenu "Field"
  32.     insertMenu "Convert"
  33.     insertMenu "Windows"
  34.     message "BibTeX mode set"
  35.     loadFile ":LaTeX:Wright Macros:BibTeX-Macros"
  36. )
  37.  
  38. (define    setMiraMode
  39.     set elecLBrace 0
  40.     set elecRBrace 0
  41.     set electricSemi 0
  42.     set wordWrap on
  43.     set fillColumn 75
  44.     set leftFillColumn 0
  45.     deleteMenu "Convert"
  46.     deleteMenu "Windows"
  47.     insertmenu "Mira"
  48.     insertMenu "Convert"
  49.     insertMenu "Windows"
  50.     (bind '{'    <s> texInsertBraces)
  51.     message "Miranda mode set"
  52.     loadFile ":LaTeX:Wright Macros:Miranda Macros"
  53. )
  54.  
  55. (define    unsetMiraMode
  56.     deletemenu "Mira")
  57.         
  58. (define shortMenus
  59.     deleteMenu "Utils"
  60.     deleteMenu "User"
  61.     deleteMenu "Convert"
  62.     deleteMenu "Windows"
  63.     insertMenu "All")
  64.  
  65. (define longMenus
  66.     insertMenu "Utils"
  67.     insertMenu "User"
  68.     insertMenu "Convert"
  69.     insertMenu "Windows"
  70.     deleteMenu "All")
  71.  
  72. (define    setTextMode
  73.     set indentOnCR off
  74.     deleteMenu "Tex"
  75.     set elecLBrace 0
  76.     set elecRBrace 0
  77.     set electricSemi 0
  78.     set wordWrap on
  79.     set fillColumn 75
  80.     set leftFillColumn 0
  81.     (bind '{'    normalLeftBracket)
  82.     message "Text mode set")
  83.  
  84. (define    setTexMode
  85. ;=======================    timeStamp
  86.     set elecLBrace 0
  87.     set elecRBrace 0
  88.     set electricSemi 0
  89.     set wordWrap on
  90.     set fillColumn 75
  91.     set leftFillColumn 0
  92.     deleteMenu "Convert"
  93.     deleteMenu "Windows"
  94.     insertmenu "Tex"
  95.     insertMenu "Convert"
  96.     insertMenu "Windows"
  97.     message "TeX mode set"    
  98.     set paraBegin "(^[ \t]*\r|\r\\.*)"
  99.     set paraEnd "\r([ \t]*$|\\.*)"
  100.     loadFile ":LaTeX:Wright Macros:LaTeX-Macros"
  101. )
  102.  
  103. (define    unsetTexMode
  104.     deletemenu "Tex")
  105.     
  106. (define textMode
  107.     set elecLBrace 0
  108.     set elecRBrace 0
  109.     set electricSemi 0
  110.     set wordWrap 1
  111.     set fillColumn 75
  112.     set paraBegin "^[ \t]*\r"
  113.     set paraEnd "\r[ \t]*$"
  114.     set leftFillColumn 0)
  115.  
  116. ;====== Misc. macros ================================================
  117.  
  118. (define goToLine
  119.     gotoLine)
  120.  
  121. (define normalLeftBracket
  122.     type "{"
  123. )
  124. (define normalRightBracket
  125.     type "}"
  126. )
  127. (define normalSemiColon
  128.     type ";"
  129. )
  130.  
  131. (define carriageReturn
  132.     type "\r")
  133.     
  134. (define parenthisizeRegion
  135.     markHilite
  136.     type "("
  137.     exchangePointAndMark
  138.     forwardChar
  139.     type ")"
  140.     exchangePointAndMark)
  141.  
  142. (define forwardPara
  143.     set matchWords off
  144.     set forward on
  145.     set regExpr on
  146.     set ignoreCase off
  147.     search "^$"
  148.     forwardWord
  149.     beginningOfLine)
  150.  
  151. (define backwardPara
  152.     set matchWords off
  153.     set forward off
  154.     set regExpr on
  155.     set ignoreCase off
  156.     search "^$"
  157.     forwardWord
  158.     beginningOfLine)
  159.  
  160. (define insertParentheses
  161.     type "()"
  162.     backwardChar)
  163.  
  164. (define insertBackQuote
  165.     type "`")
  166.  
  167. ;============ Menus =======================================
  168. (menu    Bib
  169.         "article"
  170.         "book"
  171.         "booklet"
  172.         "conference"
  173.         "inBook"
  174.         "inCollection"
  175.         "inProceedings"
  176.         "manual"
  177.         "mastersThesis"
  178.         "phdThesis"
  179.         "misc"
  180.         "proceedings"
  181.         "techReport"
  182.         "unpublished")
  183.  
  184. (menu    Field
  185.         "pages"
  186.         "chapter"
  187.         "number"
  188.         "volume"
  189.         "series"
  190.         "edition"
  191.         "(-"
  192.         "month"
  193.         "year"
  194.         "(-"
  195.         "organization"
  196.         "institution"
  197.         "school"
  198.         "publisher"
  199.         "(-"
  200.         "address"
  201.         "author"
  202.         "editor"
  203.         "booktitle"
  204.         "title"
  205.         "crossref"
  206.         "howpublished"
  207.         "journal"
  208.         "key"
  209.         "note"
  210.         "annote"
  211.         "typeOf"
  212. )
  213.  
  214. (menu    Mira
  215.         "/=miraComment"
  216.         "/-miraUncomment"
  217.         "miraScopeRegion"
  218.         "/`miraActivate"
  219.         "miraDeactivate"
  220.         "(-"
  221.         "timeStamp"
  222.         "(-"
  223.         "unsetMiraMode")
  224.         
  225. (menu    Tex
  226.         "/=texComment"
  227.         "/-texUncomment"
  228.         "texScopeRegion"
  229.         "texMathRegion"
  230.         "(-"
  231.         "timeStamp"
  232.         "(-"
  233.         "unsetTexMode")
  234.         
  235. (menu    Misc
  236.         "parenthisizeRegion"
  237.         "(-"
  238.         "transposeChars"
  239.         "transposeWords"
  240.         "(-"
  241.         "goToLine"
  242.         "(-"
  243.         "setTextMode"
  244.         "/.setTexMode"
  245.         "setBibMode"
  246.         "setMiraMode"
  247.         "(-"
  248.         "commentBox"
  249.         "uncommentBox"
  250.         "(-"
  251.         "keyAscii"
  252.         "getAscii"
  253.         "insertAscii"
  254.         "(-"
  255.         "keyCode"
  256.         "describeKey"
  257.         "listCustomization"
  258.         "getPathName"
  259.         "setFontsTabs"
  260.         "(-"
  261.         "markCurrent")
  262.  
  263. (menu    Utils
  264.         "shortMenus"
  265.         "FLAGMENU"
  266.         "VARMENU"
  267.         "MACROMENU"
  268.         "ACMDMENU"
  269.         (menu FUtils
  270.             "insertFile"
  271.             "fileStats/-"
  272.             "(-"
  273.             "fileRemove/\"
  274.             "fileInfo/=")
  275.         "FSETMENU"
  276.         "(-"
  277.         "execute/'"
  278.         "(-"
  279.         "startKeyboardMacro"
  280.         "endKeyboardMacro"
  281.         "executeKeyboardMacro"
  282.         "dumpMacro")
  283.  
  284. (menu    All
  285.         "longMenus"
  286.         "FLAGMENU"
  287.         "VARMENU"
  288.         "MACROMENU"
  289.         "ACMDMENU"
  290.         (menu FUtils
  291.             "insertFile"
  292.             "fileStats/-"
  293.             "(-"
  294.             "fileRemove/\"
  295.             "fileInfo/=")
  296.         "FSETMENU"
  297.         "(-"
  298.         "TILEMENU"
  299.         "doZoom//")
  300.         
  301. (menu    Convert
  302.         "wrapToWindow"
  303.         "fillRegion"
  304.         "fillParagraph"
  305.         "(-"
  306.         "zapInvisibles"
  307.         "tabsToSpaces"
  308.         "spacesToTabs"
  309.         "(-"
  310.         (menu    Strings
  311.             "insertPrefix"
  312.             "insertSuffix"
  313.             "removePrefix"
  314.             "removeSuffix")
  315.         (menu     Colors
  316.             "foreColor"
  317.             "backColor"
  318.             "dumpColors")
  319.         "(-"
  320.         "ParagraphToLine"
  321.         "LineToParagraph"
  322.         "(-"
  323.         "commentBox"
  324.         "uncommentBox"
  325.         "transposeChars"
  326.         "transposeWords")
  327.  
  328. (menu Windows
  329.         "TILEMENU"
  330.         "//doZoom"
  331.         "nextWindow"
  332.         "prevWindow"
  333.         "closeAll"
  334.         "(-"
  335.         "WINDOWMENU")
  336.  
  337. (insertMenu "Utils")
  338. (insertMenu "Misc")
  339. (insertMenu "Convert")
  340. (deleteMenu "Wins")
  341. (insertMenu "Windows")
  342.  
  343.